From: Andreas Schwab <schwab@suse.de>
Date: Mon, 9 Dec 2002 15:55:23 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29289
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f2eb6e724cc9a13028903466ef1f8cf4616e509f;p=emacs.git

Fix last change.
---

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index d7eae5ed459..e26364e468a 100644
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -2416,14 +2416,15 @@ Interactively, prompts for a hex string giving the code."
 	 (?(1x(B . ?$,1Dx(B)
 	 (?(1y(B . ?$,1Dy(B)
 	 (?(1|(B . ?$,1D|(B)
-	 (?(1}(B . ?$,1D}(B))
+	 (?(1}(B . ?$,1D}(B)))
        
-       (other
-	;; latin-jisx0201 is mostly decoded to ascii, with these
-	;; exceptions, so we don't bother with tables for the whole
-	;; thing.
-	(?(J\(B . ?,A%(B)
-	(?(J~(B . ?$,1s>(B))))
+      (other
+       '(
+	 ;; latin-jisx0201 is mostly decoded to ascii, with these
+	 ;; exceptions, so we don't bother with tables for the whole
+	 ;; thing.
+	 (?(J\(B . ?,A%(B)
+	 (?(J~(B . ?$,1s>(B))))
   (let ((table (make-char-table 'safe-chars))
 	safe-charsets)
     (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa